home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / skyline.bas < prev    next >
BASIC Source File  |  1988-11-09  |  45KB  |  461 lines
  1. 0 REM SKYLINE (C) 1984 Dan Petty. NON-PROPRIATARY.
  2. 1 CLS :KEY OFF:SCREEN 0:WIDTH 40:COLOR 3,0,1:LOCATE 5,11:PRINT "Welcome to SKYLINE";:LOCATE 20,10,0:PRINT "(c) 1984 by Dan Petty";:LOCATE 22,14:PRINT "(IBM Ver 2.0)"
  3. 3 LOCATE 9,2:PRINT "An outrageous example of computer art":GOSUB 1670:GOTO 3000
  4. 5 A= INT(RND * 999+1)
  5. 15 LOCATE 13,15:PRINT MID$(J$,T,L)
  6. 17 W=W+1:IF W>8 THEN PSET(35,14),3:DRAW "U1 D2 U1 L1 R2 L1"
  7. 18 IF W>9 THEN PSET(48,19),3:DRAW "U1 D2 U1 L1 R2 L1"
  8. 22 W1=W1+1:IF W1=1 THEN PSET(106,2),1:PSET(106,1),1:PSET(164,1),1:PSET(164,2),1:PSET(174,10),1:PSET(174,11),1
  9. 23 IF W1=7 THEN PRESET(106,2):PRESET(106,1):PRESET(164,1):PRESET(164,2):PRESET(174,10):PRESET(174,11)
  10. 24 IF W1=15 THEN W1=0
  11. 25 IF W1=2 THEN LOCATE 6,26:PRINT "T":PSET(153,171),0:DRAW "D3 R2"
  12. 26 IF W1=4 THEN LOCATE 6,27:PRINT "o"
  13. 27 IF W1=6 THEN LOCATE 6,28:PRINT "w"
  14. 28 IF W1=8 THEN LOCATE 6,29:PRINT "e"
  15. 29 IF W1=10 THEN LOCATE 6,30:PRINT "r"
  16. 30 IF A>255 THEN PSET(153,171),1:DRAW "D3 R2":GOTO 400
  17. 35 ON A GOTO 40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114
  18. 36 ON A - 75 GOTO 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173
  19. 37 ON A - 134 GOTO 174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231
  20. 38 ON A-191 GOTO 232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,282,283,284,285,286,287,288,289,290
  21. 39 ON A-250 GOTO 291,292,293,294,295
  22. 40 IF POINT(12,90)=0 THEN PAINT(12,90),3,2:GOTO 400:ELSE PAINT(12,90),0,2:GOTO 400
  23. 41 IF POINT(275,94)=0 THEN PAINT(275,94),3,2:GOTO 400:ELSE PAINT(275,94),0,2:GOTO 400
  24. 42 IF POINT(151,114)=0 THEN PAINT(151,114),3,2:GOTO 400:ELSE PAINT(151,114),0,2:GOTO 400
  25. 43 IF POINT(195,78)=0 THEN PAINT(195,78),3,2:GOTO 400:ELSE PAINT(195,78),0,2:GOTO 400
  26. 44 IF POINT(70,111)=0 THEN PAINT(70,111),3,2:GOTO 400:ELSE PAINT(70,111),0,2:GOTO 400
  27. 45 IF POINT(85,180)=0 THEN PAINT(85,180),3,2:PAINT(85,185),3,2:GOTO 400:ELSE PAINT(85,180),0,2:PAINT(85,185),0,2:GOTO 400
  28. 46 IF POINT(275,104)=0 THEN PAINT(275,104),3,2:GOTO 400:ELSE PAINT(275,104),0,2:GOTO 400
  29. 47 IF POINT(275,114)=0 THEN PAINT(275,114),3,2:GOTO 400:ELSE PAINT(275,114),0,2:GOTO 400
  30. 48 IF POINT(275,124)=0 THEN PAINT(275,124),3,2:GOTO 400:ELSE PAINT(275,124),0,2:GOTO 400
  31. 49 IF POINT(275,134)=0 THEN PAINT(275,134),3,2:GOTO 400:ELSE PAINT(275,134),0,2:GOTO 400
  32. 50 IF POINT(251,94)=0 THEN PAINT(251,94),3,2:GOTO 400:ELSE PAINT(251,94),0,2:GOTO 400
  33. 51 IF POINT(251,104)=0 THEN PAINT(251,104),3,2:GOTO 400:ELSE PAINT(251,104),0,2:GOTO 400
  34. 52 IF POINT(251,114)=0 THEN PAINT(251,114),3,2:GOTO 400:ELSE PAINT(251,114),0,2:GOTO 400
  35. 53 IF POINT(251,124)=0 THEN PAINT(251,124),3,2:GOTO 400:ELSE PAINT(251,124),0,2:GOTO 400
  36. 54 IF POINT(251,134)=0 THEN PAINT(251,134),3,2:GOTO 400:ELSE PAINT(251,134),0,2:GOTO 400
  37. 55 IF POINT(259,94)=0 THEN PAINT(259,94),3,2:GOTO 400:ELSE PAINT(259,94),0,2:GOTO 400
  38. 56 IF POINT(259,104)=0 THEN PAINT(259,104),3,2:GOTO 400:ELSE PAINT(259,104),0,2:GOTO 400
  39. 57 IF POINT(259,114)=0 THEN PAINT(259,114),3,2:GOTO 400:ELSE PAINT(259,114),0,2:GOTO 400
  40. 58 IF POINT(259,124)=0 THEN PAINT(259,124),3,2:GOTO 400:ELSE PAINT(259,124),0,2:GOTO 400
  41. 59 IF POINT(259,134)=0 THEN PAINT(259,134),3,2:GOTO 400:ELSE PAINT(259,134),0,2:GOTO 400
  42. 60 IF POINT(267,94)=0 THEN PAINT(267,94),3,2:GOTO 400:ELSE PAINT(267,94),0,2:GOTO 400
  43. 61 IF POINT(267,104)=0 THEN PAINT(267,104),3,2:GOTO 400:ELSE PAINT(267,104),0,2:GOTO 400
  44. 62 IF POINT(267,114)=0 THEN PAINT(267,114),3,2:GOTO 400:ELSE PAINT(267,114),0,2:GOTO 400
  45. 63 IF POINT(267,124)=0 THEN PAINT(267,124),3,2:GOTO 400:ELSE PAINT(267,124),0,2:GOTO 400
  46. 64 IF POINT(267,134)=0 THEN PAINT(267,134),3,2:GOTO 400:ELSE PAINT(267,134),0,2:GOTO 400
  47. 65 IF POINT(283,94)=0 THEN PAINT(283,94),3,2:GOTO 400:ELSE PAINT(283,94),0,2:GOTO 400
  48. 66 IF POINT(283,104)=0 THEN PAINT(283,104),3,2:GOTO 400:ELSE PAINT(283,104),0,2:GOTO 400
  49. 67 IF POINT(283,114)=0 THEN PAINT(283,114),3,2:GOTO 400:ELSE PAINT(283,114),0,2:GOTO 400
  50. 68 IF POINT(283,124)=0 THEN PAINT(283,124),3,2:GOTO 400:ELSE PAINT(283,124),0,2:GOTO 400
  51. 69 IF POINT(283,134)=0 THEN PAINT(283,134),3,2:GOTO 400:ELSE PAINT(283,134),0,2:GOTO 400
  52. 70 IF POINT(291,94)=0 THEN PAINT(291,94),3,2:GOTO 400:ELSE PAINT(291,94),0,2:GOTO 400
  53. 71 IF POINT(291,104)=0 THEN PAINT(291,104),3,2:GOTO 400:ELSE PAINT(291,104),0,2:GOTO 400
  54. 72 IF POINT(291,114)=0 THEN PAINT(291,114),3,2:GOTO 400:ELSE PAINT(291,114),0,2:GOTO 400
  55. 73 IF POINT(291,124)=0 THEN PAINT(291,124),3,2:GOTO 400:ELSE PAINT(291,124),0,2:GOTO 400
  56. 74 IF POINT(291,134)=0 THEN PAINT(291,134),3,2:GOTO 400:ELSE PAINT(291,134),0,2:GOTO 400
  57. 75 IF POINT(12,90)=0 THEN PAINT(12,90),3,2:GOTO 400:ELSE PAINT(12,90),0,2:GOTO 400
  58. 76 IF POINT(12,100)=0 THEN PAINT(12,100),3,2:GOTO 400:ELSE PAINT(12,100),0,2:GOTO 400
  59. 77 IF POINT(12,110)=0 THEN PAINT(12,110),3,2:GOTO 400:ELSE PAINT(12,110),0,2:GOTO 400
  60. 78 IF POINT(12,120)=0 THEN PAINT(12,120),3,2:GOTO 400:ELSE PAINT(12,120),0,2:GOTO 400
  61. 79 IF POINT(20,90)=0 THEN PAINT(20,90),3,2:GOTO 400:ELSE PAINT(20,90),0,2:GOTO 400
  62. 80 IF POINT(20,100)=0 THEN PAINT(20,100),3,2:GOTO 400:ELSE PAINT(20,100),0,2:GOTO 400
  63. 81 IF POINT(20,110)=0 THEN PAINT(20,110),3,2:GOTO 400:ELSE PAINT(20,110),0,2:GOTO 400
  64. 82 IF POINT(20,120)=0 THEN PAINT(20,120),3,2:GOTO 400:ELSE PAINT(20,120),0,2:GOTO 400
  65. 83 IF POINT(28,90)=0 THEN PAINT(28,90),3,2:GOTO 400:ELSE PAINT(28,90),0,2:GOTO 400
  66. 84 IF POINT(28,100)=0 THEN PAINT(28,100),3,2:GOTO 400:ELSE PAINT(28,100),0,2:GOTO 400
  67. 85 IF POINT(28,110)=0 THEN PAINT(28,110),3,2:GOTO 400:ELSE PAINT(28,110),0,2:GOTO 400
  68. 86 IF POINT(28,120)=0 THEN PAINT(28,120),3,2:GOTO 400:ELSE PAINT(28,120),0,2:GOTO 400
  69. 87 IF POINT(37,90)=0 THEN PAINT(37,90),3,2:GOTO 400:ELSE PAINT(37,90),0,2:GOTO 400
  70. 88 IF POINT(37,100)=0 THEN PAINT(37,100),3,2:GOTO 400:ELSE PAINT(37,100),0,2:GOTO 400
  71. 89 IF POINT(37,110)=0 THEN PAINT(37,110),3,2:GOTO 400:ELSE PAINT(37,110),0,2:GOTO 400
  72. 90 IF POINT(37,120)=0 THEN PAINT(37,120),3,2:GOTO 400:ELSE PAINT(37,120),0,2:GOTO 400
  73. 91 IF POINT(45,90)=0 THEN PAINT(45,90),3,2:GOTO 400:ELSE PAINT(45,90),0,2:GOTO 400
  74. 92 IF POINT(45,100)=0 THEN PAINT(45,100),3,2:GOTO 400:ELSE PAINT(45,100),0,2:GOTO 400
  75. 93 IF POINT(45,110)=0 THEN PAINT(45,110),3,2:GOTO 400:ELSE PAINT(45,110),0,2:GOTO 400
  76. 94 IF POINT(45,120)=0 THEN PAINT(45,120),3,2:GOTO 400:ELSE PAINT(45,120),0,2:GOTO 400
  77. 95 IF POINT(53,90)=0 THEN PAINT(53,90),3,2:GOTO 400:ELSE PAINT(53,90),0,2:GOTO 400
  78. 96 IF POINT(53,100)=0 THEN PAINT(53,100),3,2:GOTO 400:ELSE PAINT(53,100),0,2:GOTO 400
  79. 97 IF POINT(53,110)=0 THEN PAINT(53,110),3,2:GOTO 400:ELSE PAINT(53,110),0,2:GOTO 400
  80. 98 IF POINT(53,120)=0 THEN PAINT(53,120),3,2:GOTO 400:ELSE PAINT(53,120),0,2:GOTO 400
  81. 99 IF POINT(112,24)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,24),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,24),0,2:NEXT:GOTO 400
  82. 100 IF POINT(112,30)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,30),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,30),0,2:NEXT:GOTO 400
  83. 101 IF POINT(112,36)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,36),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,36),0,2:NEXT:GOTO 400
  84. 102 IF POINT(112,42)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,42),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,42),0,2:NEXT:GOTO 400
  85. 103 IF POINT(112,48)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,48),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,48),0,2:NEXT:GOTO 400
  86. 104 IF POINT(112,54)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,54),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,54),0,2:NEXT:GOTO 400
  87. 105 IF POINT(112,60)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,60),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,60),0,2:NEXT:GOTO 400
  88. 106 IF POINT(112,66)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,66),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,66),0,2:NEXT:GOTO 400
  89. 107 IF POINT(112,72)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,72),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,72),0,2:NEXT:GOTO 400
  90. 108 IF POINT(112,78)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,78),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,78),0,2:NEXT:GOTO 400
  91. 109 IF POINT(112,84)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,84),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,84),0,2:NEXT:GOTO 400
  92. 110 IF POINT(112,90)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,90),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,90),0,2:NEXT:GOTO 400
  93. 111 IF POINT(142,24)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,24),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,24),0,2:NEXT:GOTO 400
  94. 112 IF POINT(142,30)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,30),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,30),0,2:NEXT:GOTO 400
  95. 113 IF POINT(142,36)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,36),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,36),0,2:NEXT:GOTO 400
  96. 114 IF POINT(142,42)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,42),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,42),0,2:NEXT:GOTO 400
  97. 115 IF POINT(142,48)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,48),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,48),0,2:NEXT:GOTO 400
  98. 116 IF POINT(142,54)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,54),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,54),0,2:NEXT:GOTO 400
  99. 117 IF POINT(142,60)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,60),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,60),0,2:NEXT:GOTO 400
  100. 118 IF POINT(142,66)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,66),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,66),0,2:NEXT:GOTO 400
  101. 119 IF POINT(142,72)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,72),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,72),0,2:NEXT:GOTO 400
  102. 120 IF POINT(142,78)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,78),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,78),0,2:NEXT:GOTO 400
  103. 121 IF POINT(142,84)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,84),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,84),0,2:NEXT:GOTO 400
  104. 122 IF POINT(142,90)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,90),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,90),0,2:NEXT:GOTO 400
  105. 123 IF POINT(70,81)=0 THEN PAINT(70,81),3,2:GOTO 400:ELSE PAINT(70,81),0,2:GOTO 400
  106. 124 IF POINT(70,87)=0 THEN PAINT(70,87),3,2:GOTO 400:ELSE PAINT(70,87),0,2:GOTO 400
  107. 125 IF POINT(70,93)=0 THEN PAINT(70,93),3,2:GOTO 400:ELSE PAINT(70,93),0,2:GOTO 400
  108. 126 IF POINT(70,99)=0 THEN PAINT(70,99),3,2:GOTO 400:ELSE PAINT(70,99),0,2:GOTO 400
  109. 127 IF POINT(70,105)=0 THEN PAINT(70,105),3,2:GOTO 400:ELSE PAINT(70,105),0,2:GOTO 400
  110. 128 IF POINT(70,117)=0 THEN PAINT(70,117),3,2:GOTO 400:ELSE PAINT(70,117),0,2:GOTO 400
  111. 129 IF POINT(70,123)=0 THEN PAINT(70,123),3,2:GOTO 400:ELSE PAINT(70,123),0,2:GOTO 400
  112. 130 IF POINT(70,129)=0 THEN PAINT(70,129),3,2:GOTO 400:ELSE PAINT(70,129),0,2:GOTO 400
  113. 131 IF POINT(70,135)=0 THEN PAINT(70,135),3,2:GOTO 400:ELSE PAINT(70,135),0,2:GOTO 400
  114. 132 IF POINT(70,141)=0 THEN PAINT(70,141),3,2:GOTO 400:ELSE PAINT(70,141),0,2:GOTO 400
  115. 133 IF POINT(70,147)=0 THEN PAINT(70,147),3,2:GOTO 400:ELSE PAINT(70,147),0,2:GOTO 400
  116. 134 IF POINT(70,153)=0 THEN PAINT(70,153),3,2:GOTO 400:ELSE PAINT(70,153),0,2:GOTO 400
  117. 135 IF POINT(70,159)=0 THEN PAINT(70,159),3,2:GOTO 400:ELSE PAINT(70,159),0,2:GOTO 400
  118. 136 IF POINT(70,165)=0 THEN PAINT(70,165),3,2:GOTO 400:ELSE PAINT(70,165),0,2:GOTO 400
  119. 137 IF POINT(70,171)=0 THEN PAINT(70,171),3,2:GOTO 400:ELSE PAINT(70,171),0,2:GOTO 400
  120. 138 IF POINT(70,177)=0 THEN PAINT(70,177),3,2:GOTO 400:ELSE PAINT(70,177),0,2:GOTO 400
  121. 139 IF POINT(70,183)=0 THEN PAINT(70,183),3,2:GOTO 400:ELSE PAINT(70,183),0,2:GOTO 400
  122. 140 IF POINT(70,189)=0 THEN PAINT(70,189),3,2:GOTO 400:ELSE PAINT(70,189),0,2:GOTO 400
  123. 141 IF POINT(70,195)=0 THEN PAINT(70,195),3,2:GOTO 400:ELSE PAINT(70,195),0,2:GOTO 400
  124. 142 IF POINT(74,81)=0 THEN PAINT(74,81),3,2:GOTO 400:ELSE PAINT(74,81),0,2:GOTO 400
  125. 143 IF POINT(74,87)=0 THEN PAINT(74,87),3,2:GOTO 400:ELSE PAINT(74,87),0,2:GOTO 400
  126. 144 IF POINT(74,93)=0 THEN PAINT(74,93),3,2:GOTO 400:ELSE PAINT(74,93),0,2:GOTO 400
  127. 145 IF POINT(74,105)=0 THEN PAINT(74,105),3,2:GOTO 400:ELSE PAINT(74,105),0,2:GOTO 400
  128. 146 IF POINT(74,117)=0 THEN PAINT(74,117),3,2:GOTO 400:ELSE PAINT(74,117),0,2:GOTO 400
  129. 147 IF POINT(74,123)=0 THEN PAINT(74,123),3,2:GOTO 400:ELSE PAINT(74,123),0,2:GOTO 400
  130. 148 IF POINT(74,129)=0 THEN PAINT(74,129),3,2:GOTO 400:ELSE PAINT(74,129),0,2:GOTO 400
  131. 149 IF POINT(74,141)=0 THEN PAINT(74,141),3,2:GOTO 400:ELSE PAINT(74,141),0,2:GOTO 400
  132. 150 IF POINT(74,147)=0 THEN PAINT(74,147),3,2:GOTO 400:ELSE PAINT(74,147),0,2:GOTO 400
  133. 151 IF POINT(74,153)=0 THEN PAINT(74,153),3,2:GOTO 400:ELSE PAINT(74,153),0,2:GOTO 400
  134. 152 IF POINT(74,159)=0 THEN PAINT(74,159),3,2:GOTO 400:ELSE PAINT(74,159),0,2:GOTO 400
  135. 153 IF POINT(74,165)=0 THEN PAINT(74,165),3,2:GOTO 400:ELSE PAINT(74,165),0,2:GOTO 400
  136. 154 IF POINT(74,171)=0 THEN PAINT(74,171),3,2:GOTO 400:ELSE PAINT(74,171),0,2:GOTO 400
  137. 155 IF POINT(74,177)=0 THEN PAINT(74,177),3,2:GOTO 400:ELSE PAINT(74,177),0,2:GOTO 400
  138. 156 IF POINT(74,183)=0 THEN PAINT(74,183),3,2:GOTO 400:ELSE PAINT(74,183),0,2:GOTO 400
  139. 157 IF POINT(74,189)=0 THEN PAINT(74,189),3,2:GOTO 400:ELSE PAINT(74,189),0,2:GOTO 400
  140. 158 IF POINT(74,195)=0 THEN PAINT(74,195),3,2:GOTO 400:ELSE PAINT(74,195),0,2:GOTO 400
  141. 159 IF POINT(78,81)=0 THEN PAINT(78,81),3,2:GOTO 400:ELSE PAINT(78,81),0,2:GOTO 400
  142. 160 IF POINT(78,87)=0 THEN PAINT(78,87),3,2:GOTO 400:ELSE PAINT(78,87),0,2:GOTO 400
  143. 161 IF POINT(78,93)=0 THEN PAINT(78,93),3,2:GOTO 400:ELSE PAINT(78,93),0,2:GOTO 400
  144. 162 IF POINT(78,99)=0 THEN PAINT(78,99),3,2:GOTO 400:ELSE PAINT(78,99),0,2:GOTO 400
  145. 163 IF POINT(78,105)=0 THEN PAINT(78,105),3,2:GOTO 400:ELSE PAINT(78,105),0,2:GOTO 400
  146. 164 IF POINT(78,111)=0 THEN PAINT(78,111),3,2:GOTO 400:ELSE PAINT(78,111),0,2:GOTO 400
  147. 165 IF POINT(78,117)=0 THEN PAINT(78,117),3,2:GOTO 400:ELSE PAINT(78,117),0,2:GOTO 400
  148. 166 IF POINT(78,123)=0 THEN PAINT(78,123),3,2:GOTO 400:ELSE PAINT(78,123),0,2:GOTO 400
  149. 167 IF POINT(78,129)=0 THEN PAINT(78,129),3,2:GOTO 400:ELSE PAINT(78,129),0,2:GOTO 400
  150. 168 IF POINT(78,135)=0 THEN PAINT(78,135),3,2:GOTO 400:ELSE PAINT(78,135),0,2:GOTO 400
  151. 169 IF POINT(82,81)=0 THEN PAINT(82,81),3,2:GOTO 400:ELSE PAINT(82,81),0,2:GOTO 400
  152. 170 IF POINT(82,87)=0 THEN PAINT(82,87),3,2:GOTO 400:ELSE PAINT(82,87),0,2:GOTO 400
  153. 171 IF POINT(82,93)=0 THEN PAINT(82,93),3,2:GOTO 400:ELSE PAINT(82,93),0,2:GOTO 400
  154. 172 IF POINT(82,99)=0 THEN PAINT(82,99),3,2:GOTO 400:ELSE PAINT(82,99),0,2:GOTO 400
  155. 173 IF POINT(82,105)=0 THEN PAINT(82,105),3,2:GOTO 400:ELSE PAINT(82,105),0,2:GOTO 400
  156. 174 IF POINT(82,111)=0 THEN PAINT(82,111),3,2:GOTO 400:ELSE PAINT(82,111),0,2:GOTO 400
  157. 175 IF POINT(82,117)=0 THEN PAINT(82,117),3,2:GOTO 400:ELSE PAINT(82,117),0,2:GOTO 400
  158. 176 IF POINT(82,123)=0 THEN PAINT(82,123),3,2:GOTO 400:ELSE PAINT(82,123),0,2:GOTO 400
  159. 177 IF POINT(82,129)=0 THEN PAINT(82,129),3,2:GOTO 400:ELSE PAINT(82,129),0,2:GOTO 400
  160. 178 IF POINT(82,135)=0 THEN PAINT(82,135),3,2:GOTO 400:ELSE PAINT(82,135),0,2:GOTO 400
  161. 179 IF POINT(86,105)=0 THEN PAINT(86,105),3,2:GOTO 400:ELSE PAINT(86,105),0,2:GOTO 400
  162. 180 IF POINT(86,111)=0 THEN PAINT(86,111),3,2:GOTO 400:ELSE PAINT(86,111),0,2:GOTO 400
  163. 181 IF POINT(86,117)=0 THEN PAINT(86,117),3,2:GOTO 400:ELSE PAINT(86,117),0,2:GOTO 400
  164. 182 IF POINT(86,123)=0 THEN PAINT(86,123),3,2:GOTO 400:ELSE PAINT(86,123),0,2:GOTO 400
  165. 183 IF POINT(86,129)=0 THEN PAINT(86,129),3,2:GOTO 400:ELSE PAINT(86,129),0,2:GOTO 400
  166. 184 IF POINT(86,135)=0 THEN PAINT(86,135),3,2:GOTO 400:ELSE PAINT(86,135),0,2:GOTO 400
  167. 185 IF POINT(90,105)=0 THEN PAINT(90,105),3,2:GOTO 400:ELSE PAINT(90,105),0,2:GOTO 400
  168. 186 IF POINT(90,111)=0 THEN PAINT(90,111),3,2:GOTO 400:ELSE PAINT(90,111),0,2:GOTO 400
  169. 187 IF POINT(90,117)=0 THEN PAINT(90,117),3,2:GOTO 400:ELSE PAINT(90,117),0,2:GOTO 400
  170. 188 IF POINT(12,140)=0 THEN PAINT(12,140),3,2:GOTO 400:ELSE PAINT(12,140),0,2:GOTO 400
  171. 189 IF POINT(12,150)=0 THEN PAINT(12,150),3,2:GOTO 400:ELSE PAINT(12,150),0,2:GOTO 400
  172. 190 IF POINT(20,140)=0 THEN PAINT(20,140),3,2:GOTO 400:ELSE PAINT(20,140),0,2:GOTO 400
  173. 191 IF POINT(20,150)=0 THEN PAINT(20,150),3,2:GOTO 400:ELSE PAINT(20,150),0,2:GOTO 400
  174. 192 IF POINT(36,140)=0 THEN PAINT(36,140),3,2:GOTO 400:ELSE PAINT(36,140),0,2:GOTO 400
  175. 193 IF POINT(28,150)=0 THEN PAINT(28,150),3,2:GOTO 400:ELSE PAINT(28,150),0,2:GOTO 400
  176. 194 IF POINT(36,140)=0 THEN PAINT(36,140),3,2:GOTO 400:ELSE PAINT(36,140),0,2:GOTO 400
  177. 195 IF POINT(36,150)=0 THEN PAINT(36,150),3,2:GOTO 400:ELSE PAINT(36,150),0,2:GOTO 400
  178. 196 IF POINT(44,140)=0 THEN PAINT(44,140),3,2:GOTO 400:ELSE PAINT(44,140),0,2:GOTO 400
  179. 197 IF POINT(44,150)=0 THEN PAINT(44,150),3,2:GOTO 400:ELSE PAINT(44,150),0,2:GOTO 400
  180. 198 IF POINT(44,160)=0 THEN PAINT(44,160),3,2:GOTO 400:ELSE PAINT(44,160),0,2:GOTO 400
  181. 199 IF POINT(44,170)=0 THEN PAINT(44,170),3,2:GOTO 400:ELSE PAINT(44,170),0,2:GOTO 400
  182. 200 IF POINT(44,180)=0 THEN PAINT(44,180),3,2:GOTO 400:ELSE PAINT(44,180),0,2:GOTO 400
  183. 201 IF POINT(44,190)=0 THEN PAINT(44,190),3,2:GOTO 400:ELSE PAINT(44,190),0,2:GOTO 400
  184. 202 IF POINT(52,140)=0 THEN PAINT(52,140),3,2:GOTO 400:ELSE PAINT(52,140),0,2:GOTO 400
  185. 203 IF POINT(52,150)=0 THEN PAINT(52,150),3,2:GOTO 400:ELSE PAINT(52,150),0,2:GOTO 400
  186. 204 IF POINT(52,160)=0 THEN PAINT(52,160),3,2:GOTO 400:ELSE PAINT(52,160),0,2:GOTO 400
  187. 205 IF POINT(52,170)=0 THEN PAINT(52,170),3,2:GOTO 400:ELSE PAINT(52,170),0,2:GOTO 400
  188. 206 IF POINT(52,180)=0 THEN PAINT(52,180),3,2:GOTO 400:ELSE PAINT(52,180),0,2:GOTO 400
  189. 207 IF POINT(52,190)=0 THEN PAINT(52,190),3,2:GOTO 400:ELSE PAINT(52,190),0,2:GOTO 400
  190. 208 IF POINT(85,170)=0 THEN PAINT(85,170),3,2:PAINT(85,165),3,2:GOTO 400:ELSE PAINT(85,170),0,2:PAINT(85,165),0,2:GOTO 400
  191. 209 IF POINT(85,155)=0 THEN PAINT(85,155),3,2:PAINT(85,150),3,2:GOTO 400:ELSE PAINT(85,155),0,2:PAINT(85,150),0,2:GOTO 400
  192. 210 IF POINT(95,155)=0 THEN PAINT(95,155),3,2:PAINT(95,150),3,2:GOTO 400:ELSE PAINT(95,155),0,2:PAINT(95,150),0,2:GOTO 400
  193. 211 IF POINT(95,170)=0 THEN PAINT(95,170),3,2:PAINT(95,165),3,2:GOTO 400:ELSE PAINT(95,170),0,2:PAINT(95,165),0,2:GOTO 400
  194. 212 IF POINT(95,180)=0 THEN PAINT(95,180),3,2:PAINT(95,185),3,2:GOTO 400:ELSE PAINT(95,180),0,2:PAINT(95,185),0,2:GOTO 400
  195. 213 IF POINT(105,155)=0 THEN PAINT(105,155),3,2:PAINT(105,150),3,2:GOTO 400:ELSE PAINT(105,155),0,2:PAINT(105,150),0,2:GOTO 400
  196. 214 IF POINT(105,170)=0 THEN PAINT(105,170),3,2:PAINT(105,165),3,2:GOTO 400:ELSE PAINT(105,170),0,2:PAINT(105,165),0,2:GOTO 400
  197. 215 IF POINT(105,180)=0 THEN PAINT(105,180),3,2:PAINT(105,185),3,2:GOTO 400:ELSE PAINT(105,180),0,2:PAINT(105,185),0,2:GOTO 400
  198. 216 IF POINT(115,155)=0 THEN PAINT(115,155),3,2:PAINT(115,150),3,2:GOTO 400:ELSE PAINT(115,155),0,2:PAINT(115,150),0,2:GOTO 400
  199. 217 IF POINT(115,170)=0 THEN PAINT(115,170),3,2:PAINT(115,165),3,2:GOTO 400:ELSE PAINT(115,170),0,2:PAINT(115,165),0,2:GOTO 400
  200. 218 IF POINT(125,155)=0 THEN PAINT(125,155),3,2:PAINT(125,150),3,2:GOTO 400:ELSE PAINT(125,155),0,2:PAINT(125,150),0,2:GOTO 400
  201. 219 IF POINT(125,170)=0 THEN PAINT(125,170),3,2:PAINT(125,165),3,2:GOTO 400:ELSE PAINT(125,170),0,2:PAINT(125,165),0,2:GOTO 400
  202. 220 IF POINT(135,155)=0 THEN PAINT(135,155),3,2:PAINT(135,150),3,2:GOTO 400:ELSE PAINT(135,155),0,2:PAINT(135,150),0,2:GOTO 400
  203. 221 IF POINT(135,170)=0 THEN PAINT(135,170),3,2:PAINT(135,165),3,2:GOTO 400:ELSE PAINT(135,170),0,2:PAINT(135,165),0,2:GOTO 400
  204. 222 IF POINT(141,114)=0 THEN PAINT(141,114),3,2:GOTO 400:ELSE PAINT(141,114),0,2:GOTO 400
  205. 223 IF POINT(131,114)=0 THEN PAINT(131,114),3,2:GOTO 400:ELSE PAINT(131,114),0,2:GOTO 400
  206. 224 IF POINT(121,114)=0 THEN PAINT(121,114),3,2:GOTO 400:ELSE PAINT(121,114),0,2:GOTO 400
  207. 225 IF POINT(161,114)=0 THEN PAINT(161,114),3,2:GOTO 400:ELSE PAINT(161,114),0,2:GOTO 400
  208. 226 IF POINT(171,114)=0 THEN PAINT(171,114),3,2:GOTO 400:ELSE PAINT(171,114),0,2:GOTO 400
  209. 227 IF POINT(181,114)=0 THEN PAINT(181,114),3,2:GOTO 400:ELSE PAINT(181,114),0,2:GOTO 400
  210. 228 IF POINT(191,114)=0 THEN PAINT(191,114),3,2:GOTO 400:ELSE PAINT(191,114),0,2:GOTO 400
  211. 229 IF POINT(201,114)=0 THEN PAINT(201,114),3,2:GOTO 400:ELSE PAINT(201,114),0,2:GOTO 400
  212. 230 IF POINT(211,114)=0 THEN PAINT(211,114),3,2:GOTO 400:ELSE PAINT(211,114),0,2:GOTO 400
  213. 231 IF POINT(193,124)=0 THEN PAINT(193,124),3,2:GOTO 400:ELSE PAINT(193,124),0,2:GOTO 400
  214. 232 IF POINT(203,124)=0 THEN PAINT(203,124),3,2:GOTO 400:ELSE PAINT(203,124),0,2:GOTO 400
  215. 233 IF POINT(213,124)=0 THEN PAINT(213,124),3,2:GOTO 400:ELSE PAINT(213,124),0,2:GOTO 400
  216. 234 IF POINT(193,136)=0 THEN PAINT(193,136),3,2:GOTO 400:ELSE PAINT(193,136),0,2:GOTO 400
  217. 235 IF POINT(203,136)=0 THEN PAINT(203,136),3,2:GOTO 400:ELSE PAINT(203,136),0,2:GOTO 400
  218. 236 IF POINT(213,136)=0 THEN PAINT(213,136),3,2:GOTO 400:ELSE PAINT(213,136),0,2:GOTO 400
  219. 237 IF POINT(193,148)=0 THEN PAINT(193,148),3,2:GOTO 400:ELSE PAINT(193,148),0,2:GOTO 400
  220. 238 IF POINT(203,148)=0 THEN PAINT(203,148),3,2:GOTO 400:ELSE PAINT(203,148),0,2:GOTO 400
  221. 239 IF POINT(213,148)=0 THEN PAINT(213,148),3,2:GOTO 400:ELSE PAINT(213,148),0,2:GOTO 400
  222. 240 IF POINT(195,68)=0 THEN PAINT(195,68),3,2:GOTO 400:ELSE PAINT(195,68),0,2:GOTO 400
  223. 241 IF POINT(195,73)=0 THEN PAINT(195,73),3,2:GOTO 400:ELSE PAINT(195,73),0,2:GOTO 400
  224. 242 IF POINT(195,83)=0 THEN PAINT(195,83),3,2:GOTO 400:ELSE PAINT(195,83),0,2:GOTO 400
  225. 243 IF POINT(195,88)=0 THEN PAINT(195,88),3,2:GOTO 400:ELSE PAINT(195,88),0,2:GOTO 400
  226. 244 IF POINT(205,68)=0 THEN PAINT(205,68),3,2:GOTO 400:ELSE PAINT(205,68),0,2:GOTO 400
  227. 245 IF POINT(205,73)=0 THEN PAINT(205,73),3,2:GOTO 400:ELSE PAINT(205,73),0,2:GOTO 400
  228. 246 IF POINT(205,78)=0 THEN PAINT(205,78),3,2:GOTO 400:ELSE PAINT(205,78),0,2:GOTO 400
  229. 247 IF POINT(205,83)=0 THEN PAINT(205,83),3,2:GOTO 400:ELSE PAINT(205,83),0,2:GOTO 400
  230. 248 IF POINT(205,88)=0 THEN PAINT(205,88),3,2:GOTO 400:ELSE PAINT(205,88),0,2:GOTO 400
  231. 249 IF POINT(205,92)=0 THEN PAINT(205,92),3,2:GOTO 400:ELSE PAINT(205,92),0,2:GOTO 400
  232. 250 IF POINT(212,68)=0 THEN PAINT(212,68),3,2:GOTO 400:ELSE PAINT(212,68),0,2:GOTO 400
  233. 251 IF POINT(212,73)=0 THEN PAINT(212,73),3,2:GOTO 400:ELSE PAINT(212,73),0,2:GOTO 400
  234. 252 IF POINT(212,78)=0 THEN PAINT(212,78),3,2:GOTO 400:ELSE PAINT(212,78),0,2:GOTO 400
  235. 253 IF POINT(212,83)=0 THEN PAINT(212,83),3,2:GOTO 400:ELSE PAINT(212,83),0,2:GOTO 400
  236. 254 IF POINT(212,88)=0 THEN PAINT(212,88),3,2:GOTO 400:ELSE PAINT(212,88),0,2:GOTO 400
  237. 255 IF POINT(212,92)=0 THEN PAINT(212,92),3,2:GOTO 400:ELSE PAINT(212,92),0,2:GOTO 400
  238. 256 IF POINT(220,68)=0 THEN PAINT(220,68),3,2:GOTO 400:ELSE PAINT(220,68),0,2:GOTO 400
  239. 257 IF POINT(220,73)=0 THEN PAINT(220,73),3,2:GOTO 400:ELSE PAINT(220,73),0,2:GOTO 400
  240. 258 IF POINT(220,78)=0 THEN PAINT(220,78),3,2:GOTO 400:ELSE PAINT(220,78),0,2:GOTO 400
  241. 259 IF POINT(220,83)=0 THEN PAINT(220,83),3,2:GOTO 400:ELSE PAINT(220,83),0,2:GOTO 400
  242. 260 IF POINT(220,88)=0 THEN PAINT(220,88),3,2:GOTO 400:ELSE PAINT(220,88),0,2:GOTO 400
  243. 261 IF POINT(220,92)=0 THEN PAINT(220,92),3,2:GOTO 400:ELSE PAINT(220,92),0,2:GOTO 400
  244. 262 IF POINT(50,3)=1 THEN GOTO 400 ELSE COLOR 0,1:PAINT(50,3),1,2:LOCATE 13,15:PRINT "  One moment  ":GOTO 1360
  245. 263 IF POINT(50,3)=0 THEN GOTO 400 ELSE COLOR 0,1:PAINT(50,3),0,2:LOCATE 13,15:PRINT "  One moment  ":GOTO 1030
  246. 264 IF POINT(230,68)=0 THEN PAINT(230,68),3,2:GOTO 400:ELSE PAINT(230,68),0,2:GOTO 400
  247. 265 IF POINT(230,73)=0 THEN PAINT(230,73),3,2:GOTO 400:ELSE PAINT(230,73),0,2:GOTO 400
  248. 266 IF POINT(230,78)=0 THEN PAINT(230,78),3,2:GOTO 400:ELSE PAINT(230,78),0,2:GOTO 400
  249. 267 IF POINT(230,83)=0 THEN PAINT(230,83),3,2:GOTO 400:ELSE PAINT(230,83),0,2:GOTO 400
  250. 268 IF POINT(230,88)=0 THEN PAINT(230,88),3,2:GOTO 400:ELSE PAINT(230,88),0,2:GOTO 400
  251. 269 IF POINT(235,93)=0 THEN PAINT(235,92),3,2:GOTO 400:ELSE PAINT(235,92),0,2:GOTO 400
  252. 270 IF POINT(235,98)=0 THEN PAINT(235,98),3,2:GOTO 400:ELSE PAINT(235,98),0,2:GOTO 400
  253. 271 IF POINT(235,103)=0 THEN PAINT(235,103),3,2:GOTO 400:ELSE PAINT(235,103),0,2:GOTO 400
  254. 272 IF POINT(235,108)=0 THEN PAINT(235,108),3,2:GOTO 400:ELSE PAINT(235,108),0,2:GOTO 400
  255. 273 IF POINT(235,113)=0 THEN PAINT(235,113),3,2:GOTO 400:ELSE PAINT(235,113),0,2:GOTO 400
  256. 274 IF POINT(235,118)=0 THEN PAINT(235,118),3,2:GOTO 400:ELSE PAINT(235,118),0,2:GOTO 400
  257. 275 IF POINT(235,123)=0 THEN PAINT(235,123),3,2:GOTO 400:ELSE PAINT(235,123),0,2:GOTO 400
  258. 276 IF POINT(235,128)=0 THEN PAINT(235,128),3,2:GOTO 400:ELSE PAINT(235,128),0,2:GOTO 400
  259. 277 IF POINT(235,133)=0 THEN PAINT(235,133),3,2:GOTO 400:ELSE PAINT(235,133),0,2:GOTO 400
  260. 278 IF POINT(235,138)=0 THEN PAINT(235,138),3,2:GOTO 400:ELSE PAINT(235,138),0,2:GOTO 400
  261. 279 IF POINT(235,143)=0 THEN PAINT(235,143),3,2:GOTO 400:ELSE PAINT(235,143),0,2:GOTO 400
  262. 280 IF POINT(235,148)=0 THEN PAINT(235,148),3,2:GOTO 400:ELSE PAINT(235,148),0,2:GOTO 400
  263. 281 IF POINT(235,151)=0 THEN PAINT(235,151),3,2:GOTO 400:ELSE PAINT(235,151),0,2:GOTO 400
  264. 282 IF POINT(239,68)=0 THEN PAINT(239,68),3,2:GOTO 400:ELSE PAINT(239,68),0,2:GOTO 400
  265. 283 IF POINT(239,73)=0 THEN PAINT(239,73),3,2:GOTO 400:ELSE PAINT(239,73),0,2:GOTO 400
  266. 284 IF POINT(239,78)=0 THEN PAINT(239,78),3,2:GOTO 400:ELSE PAINT(239,78),0,2:GOTO 400
  267. 285 IF POINT(239,83)=0 THEN PAINT(239,83),3,2:GOTO 400:ELSE PAINT(239,83),0,2:GOTO 400
  268. 286 IF POINT(239,88)=0 THEN PAINT(239,88),3,2:GOTO 400:ELSE PAINT(239,88),0,2:GOTO 400
  269. 287 IF POINT(239,93)=0 THEN PAINT(239,92),3,2:GOTO 400:ELSE PAINT(239,92),0,2:GOTO 400
  270. 288 IF POINT(239,98)=0 THEN PAINT(239,98),3,2:GOTO 400:ELSE PAINT(239,98),0,2:GOTO 400
  271. 289 IF POINT(239,103)=0 THEN PAINT(239,103),3,2:GOTO 400:ELSE PAINT(239,103),0,2:GOTO 400
  272. 290 IF POINT(239,108)=0 THEN PAINT(239,108),3,2:GOTO 400:ELSE PAINT(239,108),0,2:GOTO 400
  273. 291 IF POINT(239,113)=0 THEN PAINT(239,113),3,2:GOTO 400:ELSE PAINT(239,113),0,2:GOTO 400
  274. 292 IF POINT(239,118)=0 THEN PAINT(239,118),3,2:GOTO 400:ELSE PAINT(239,118),0,2:GOTO 400
  275. 293 IF POINT(239,123)=0 THEN PAINT(239,123),3,2:GOTO 400:ELSE PAINT(239,123),0,2:GOTO 400
  276. 294 IF POINT(239,128)=0 THEN PAINT(239,128),3,2:GOTO 400:ELSE PAINT(239,128),0,2:GOTO 400
  277. 295 IF POINT(239,133)=0 THEN PAINT(239,133),3,2:GOTO 400:ELSE PAINT(239,133),0,2:GOTO 400
  278. 296 IF POINT(239,138)=0 THEN PAINT(239,138),3,2:GOTO 400:ELSE PAINT(239,138),0,2:GOTO 400
  279. 297 IF POINT(239,143)=0 THEN PAINT(239,143),3,2:GOTO 400:ELSE PAINT(239,143),0,2:GOTO 400
  280. 298 IF POINT(239,148)=0 THEN PAINT(239,148),3,2:GOTO 400:ELSE PAINT(239,148),0,2:GOTO 400
  281. 299 IF POINT(239,151)=0 THEN PAINT(239,151),3,2:GOTO 400:ELSE PAINT(239,151),0,2:GOTO 400
  282. 400 IF W>8 THEN PSET(35,14),0:DRAW "U1 D2 U1 L1 R2 L1"
  283. 410 IF W>9 THEN PSET(48,19),0:DRAW "U1 D2 U1 L1 R2 L1":W=0
  284. 420 IF C1= 0 THEN ON C2 GOTO 450,470,490,510,530,550,570,590,610,630,650,670,690
  285. 430 IF C1=6 THEN T=T:Q7=Q7+1:IF Q7>10 THEN LOCATE 13,15:PRINT L1$:Q7=0:S2=1:IF VAL (MID$ (TIME$,7,2))<58 THEN GOSUB 1680
  286. 440 GOTO 700
  287. 450 T=T+1:IF T=>70 THEN LOCATE 13,15:PRINT "              ":T=1:C1=6:S2=3:GOTO 700
  288. 460 GOTO 700
  289. 470 IF C1=0 THEN T=T+1:IF T=>80 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  290. 480 GOTO 700
  291. 490 IF C1=0 THEN T=T+1:IF T=>72 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  292. 500 GOTO 700
  293. 510 IF C1=0 THEN T=T+1:IF T=>78 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  294. 520 GOTO 700
  295. 530 IF C1=0 THEN T=T+1:IF T=>73 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  296. 540 GOTO 700
  297. 550 IF C1=0 THEN T=T+1:IF T=>115 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  298. 560 GOTO 700
  299. 570 IF C1=0 THEN T=T+1:IF T=>102 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  300. 580 GOTO 700
  301. 590 IF C1=0 THEN T=T+1:IF T=>84 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  302. 600 GOTO 700
  303. 610 IF C1=0 THEN T=T+1:IF T=>144 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  304. 620 GOTO 700
  305. 630 IF C1=0 THEN T=T+1:IF T=>98 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  306. 640 GOTO 700
  307. 650 IF C1=0 THEN T=T+1:IF T=>144 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  308. 660 GOTO 700
  309. 670 IF C1=0 THEN T=T+1:IF T=>160 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
  310. 680 GOTO 700
  311. 690 IF C1=0 THEN T=T+1:IF T=>108 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3
  312. 700 IF W1=14 THEN LOCATE 6,26:PRINT "     "
  313. 710 IF S2=3 THEN S2=0:Q7=0:T=1:J$=T6$+MID$ (TIME$,1,5)+"   ":GOTO 5
  314. 720 IF S2=1 THEN S2=0:C1=0:C2=C2+1:GOTO 880
  315. 730 GOTO 5
  316. 740 L=13:C2=0:S2=3:T=1:C1=6:Q7=0:S3=0:RANDOMIZE TIMER :L2$=" Time now... ":L1$="   LOOK...  "
  317. 750 T8$="             FOR FINE DINING...   STEP OUT...    TO THE GASTIGHT ROOM.     LLOYD TOWER HOTEL. "
  318. 760 T7$="             TEST DRIVE THE NEW 1984    -REPULSE-     AT...     MELVIN'S MOTORS!     ON THE FREEWAY! "
  319. 770 T1$="             HAVE A...    CITY CLUB BEER!     CITY CLUB TIME... "
  320. 780 T2$="             TUNE TO THE BEAUTIFUL MUSIC STATION.           KRAP FM 106 "
  321. 790 T3$="             WE HAVE YOU COVERED!          METRO LIFE INSURANCE CO. "
  322. 800 T6$="    ":J$=T6$+ MID$ (TIME$,1,5)+" ":T4$="             FOR   `UNIQUE'   TASTE;    SMOKE...   *-GASPER-*    CIGARETTES! "
  323. 810 T5$="             CITY LIGHTS - OUTDOOR ADVERTISING.    THIS SPACE FOR RENT. "
  324. 820 T9$="             TRY LORD BILGE LONDON DRY GIN!   AND TONIC...  THE PERFECT MATCH! "
  325. 830 U1$="             WHEN PURCHASING FINE DIAMONDS;   CONSIDER...   RUBENSTERN JEWELERS  -  QUALITY DIAMONDS AND FINE JEWELERY FOR OVER 50 YEARS. "
  326. 840 U2$="             WHEN ENTERTAINING,   SERVE...   RUSTY SPRINGS SPARKLING WATER!   THE BETTER MIXER! ":U3$="            IN NEED OF LEGAL EXPERTISE?  -  CONTACT THE OFFICES OF    DEWEY, CHEETEM & HOWE  -  FOR A FULL RANGE OF ATTORNEY SERVICES. "
  327. 850 U4$="            PROMISE HER ANYTHING,    BUT GIVE HER BUC SCENT COLOGNE     BY POUR DE LA STENC, PARIS FRANCE.     AVAILABLE NOW AT GOTTWEALTH'S ON THE MALL. "
  328. 860 U5$="            ALL THE NEWS...    ALL THE TIME...    READ THE DAILY BLURT...    THE CITY'S LEADING NEWSPAPER. ":Q5=1
  329. 870 T$=TIME$ :SCREEN 1:COLOR 0,1:M1=271:M2=44:H1=275:H2=50:GOTO 1020
  330. 880 IF C2=1 THEN J$=P$+T1$:GOTO 5
  331. 890 IF C2=2 THEN J$=P$+T2$:GOTO 5
  332. 900 IF C2=3 THEN J$=P$+T3$:GOTO 5
  333. 910 IF C2=4 THEN J$=P$+T4$:GOTO 5
  334. 920 IF C2=5 THEN J$=P$+T5$:GOTO 5
  335. 930 IF C2=6 THEN J$=P$+T7$:GOTO 5
  336. 940 IF C2=7 THEN J$=P$+T8$:GOTO 5
  337. 950 IF C2=8 THEN J$=P$+T9$:GOTO 5
  338. 960 IF C2=9 THEN J$=P$+U1$:GOTO 5
  339. 970 IF C2=10 THEN J$=P$+U2$:GOTO 5
  340. 980 IF C2=11 THEN J$=P$+U3$:GOTO 5
  341. 990 IF C2=12 THEN J$=P$+U4$:GOTO 5
  342. 1000 IF C2=13 THEN J$=P$+U5$:GOTO 5
  343. 1010 C2=1:GOSUB 2000:GOTO 880
  344. 1020 CLS :PSET(0,50),2: DRAW "C2 S4 R10 D28 L3 D3 L3 D50 L3 D20 R30 D48 L30 R319":PSET(31,151),2: DRAW "F10 D37"
  345. 1030 PSET(10,50),2: DRAW "F8 D5 L5 D12 L2": PSET(61,198),2: DRAW "U66":PSET(60,131),2:DRAW "U49":PSET(2,131),2: DRAW "R59 F8 D68": PSET(60,106),2
  346. 1040 PSET(47,81),2: DRAW "R12 F9 D47": PSET(59,80),2: DRAW "U2 L3 U3 L3 U12 L34": PSET(60,79),2: DRAW "F6 D2"
  347. 1050 PSET(49,78),2: DRAW "R7":PSET(51,75),2:DRAW "R1": PSET(56,75),2: DRAW "F2": PSET(54,64),2: DRAW "F6 D9"
  348. 1060 PSET(24,62),2: DRAW "U25 R30 D27": PSET(55,37),2: DRAW "F8 D36": PSET(66,84),2: DRAW "U8 R20 D25 R10 D18 L8 D20 L13"
  349. 1070 DRAW "D64": PSET(80,70),2:LINE-(80,75),2: LINE(74,70)-(74,75),2: LINE (72,70)-(82,70),2: PSET(75,71),2: DRAW "F4"
  350. 1080 PSET(79,71),2: DRAW "G4": LINE(72,70)-(72,61),2: LINE(82,70)-(82,61),2: LINE(71,61)-(83,61),2:LOCATE 7,26:PRINT "hotel"
  351. 1090 LINE(70,61)-(77,58),2: LINE(77,58)-(84,61),2:PSET(89,139),2: DRAW "R60 D59"
  352. 1100 PSET(97,119),2: DRAW "R85 D32": PSET(149,139),2: DRAW "F10 D49": PSET(182,119),2: DRAW "F10 D22": PSET(86,76),2
  353. 1110 DRAW "F5 D20": PSET(96,101),2: DRAW "F5 D13": PSET(319,140),2: DRAW "L74 D58": PSET(244,152),2: DRAW "L75 D46"
  354. 1120 PSET(109,118),2:DRAW "U25 R116 D58":PSET(226,94),2:DRAW "F6 D51":PSET(110,105),2:DRAW "R114 U11":PSET(110,105),2:DRAW "U11"
  355. 1130 PSET(240,94),2:DRAW "D58":PSET(302,94),2:DRAW "D46":PSET(311,94),2:DRAW "D29"
  356. 1140 PSET(240,151),2:DRAW "U24":PSET(240,93),2:DRAW "U10 R4 U4 R4 U4 R4 U35 R2 U2 R34 D2 R2 D35 R4 D4 R4 D4 R4 D10"
  357. 1150 PSET(77,56),1:PSET(77,57),1:PSET(308,53),2:DRAW "E7 G14 R6 E8 U6":CIRCLE(314,58),2,2,,,6/7:PAINT(314,58),2,2:DRAW "D7 BU7 BH6 H2 BF8 R5"
  358. 1160 LINE(255,37)-(271,21),2:LINE(287,37)-(271,21),2:CIRCLE(271,55),11,3,,,6/7:PSET(271,48),1:PSET(275,49),1
  359. 1170 PSET(278,51),1:PSET(279,55),1:PSET(278,59),1:PSET(275,61),1:PSET(271,62),1:PSET(267,61),1:PSET(264,59),1
  360. 1180 PSET(263,55),1:PSET(264,51),1:PSET(267,49),1
  361. 1190 CIRCLE(220,15),14,3,,,6/7:PAINT(210,20),3,3:PSET(35,37),2:DRAW "U20":PSET(48,37),2:DRAW "U15"
  362. 1200 PSET(245,83),2:DRAW "R18":PSET(249,79),2:DRAW "R10":PSET(253,75),2:DRAW "R2":PSET(190,92),2:DRAW "U35 R55 D22"
  363. 1210 PSET(246,58),2:DRAW "F6":PSET(311,139),2:DRAW "U15":PSET(311,93),2:DRAW "U28 R10":PSET(310,66),2:DRAW "G9 D7"
  364. 1220 PSET(105,118),2:DRAW "U115 R60 D90":PSET(166,4),2:DRAW "F8 D80":PSET(106,17),2:DRAW "R59"
  365. 1230 PSET(41,159),2:PSET(41,160),2
  366. 1240 FOR X=9 TO 53 STEP 8:Y=148:PSET(X,Y),2:DRAW "R4":NEXT:FOR X=9 TO 34 STEP 4:Y=148:PSET(X,Y),2:DRAW "D3":NEXT:FOR X=37 TO 53 STEP 4:Y=148:PSET(X,Y),2:DRAW "D5":NEXT:FOR X=34 TO 37:Y=153:PSET(X,Y),2:NEXT
  367. 1250 FOR X=41 TO 53 STEP 8:Y=153:PSET(X,Y),2:DRAW "R4":NEXT:FOR X=41 TO 53 STEP 8:Y=158:PSET(X,Y),2:DRAW "R4":NEXT:FOR X=42 TO 44:FOR Y=163 TO 193 STEP 5:PSET(X,Y),2:NEXT Y,X:FOR X=49 TO 53:FOR Y= 163 TO 193 STEP 5:PSET(X,Y),2:NEXT Y,X
  368. 1260 FOR X=45 TO 53 STEP 4:FOR Y=158 TO 188 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT Y,X:PSET(10,174),1:DRAW "L1 G1 D2 F1 R1":PSET(13,177),1:DRAW "U3 E1 R1 F1 D3":PSET(15,176),1:PSET(14,176),1:PSET(19,177),1:DRAW "U2 R1 L1 U2 R1":PSET(23,178),1
  369. 1270 DRAW "R1 L1 U2 R1 L1 U2 R1":PSET(6,181),2:DRAW "R20 D10 L20 U10":PAINT (7,182),3,2
  370. 1280 FOR X=22 TO 92 STEP 3:PSET(110,X),2:DRAW "R20":NEXT :FOR X=22 TO 92 STEP 3:PSET(140,X),2:DRAW "R20":NEXT :FOR X=110 TO 130 STEP 5:FOR Y=22 TO 90 STEP 6:D=Y+3:LINE (X,Y)-(X,D),2:NEXT Y,X
  371. 1290 FOR X=140 TO 160 STEP 5:FOR Y=22 TO 90 STEP 6:D=Y+3:LINE (X,Y)-(X,D),2:NEXT Y,X:PSET(10,88),2:FOR X=10 TO 50 STEP 8:FOR Y=88 TO 125 STEP 5:PSET(X,Y),2:DRAW "R4":NEXT Y,X:FOR X=10 TO 54 STEP 4:FOR Y=88 TO 125 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT Y,X
  372. 1300 PAINT(166,20),2,2:PSET(197,56),2:DRAW "U20 R45 D20"
  373. 1310 PSET(175,198),2:DRAW "U31 R1 D31 R1 U31":CIRCLE (176,162),4,3,,,.8:PAINT(176,162),4,3:PSET(174,198),2:DRAW "U4 R4 D4":PSET(140,198),2:DRAW "U18":CIRCLE(140,176),2,3,,,8/9:PAINT(140,176),3,3:PSET(139,198),2:DRAW "U2 R2 D2"
  374. 1320 PSET(313,198),2:DRAW "U31 R1 D31 R1 U31":CIRCLE(314,162),4,3,,,.8:PAINT(314,162),3,3:PSET(312,198),2:DRAW "U4 R4 D4":PSET(35,198),2:DRAW "U24 R1 D24":CIRCLE(36,170),3,3,,,.8:PAINT(36,170),3,3:PSET(34,198),2:DRAW "U3 R3 D3"
  375. 1330 PSET(305,198),2:DRAW "U22 L12 D22":PSET(285,185),2:DRAW "U8 L30 D8 R30":PSET(302,188),2:DRAW "U3":PSET(260,173),1:DRAW "U6 R3 F1 D2 G1 L1 R1 F1 D2 G1 L3 U1":PSET(267,175),1:DRAW "U7 E1 R2 F1 D7"
  376. 1340 LINE(268,170)-(270,170),1:PSET(274,175),1:DRAW "U7 E1 R2 F1 D2 G1 L1 R1 F1 D3"
  377. 1350 CIRCLE(215,12),2,0,,,8/9:CIRCLE(225,12),2,0,,,8/9:CIRCLE(220,22),1,0,,,8/9:CIRCLE(220,16),1,0,,,8/9:PSET(225,13),0:PSET(215,13),0:PSET(220,22),0
  378. 1360 PSET(153,152),1:DRAW "U2 D3 U2 R2 U1 D3":PSET(153,156),1:DRAW "E1 F1 D1 G1 H1 U1":PSET(153,160),1:DRAW "R2 L1 D3":PSET(153,165),1:DRAW "R2 L2 D2 R1 L1 D2 R2":PSET(153,171),1:DRAW "D3 R2"
  379. 1370 LOCATE 2,16:PRINT "AP&P"
  380. 1380 FOR X=9 TO 53 STEP 8:FOR Y=138 TO 143 STEP 5:PSET(X,Y),2:DRAW "R4":NEXT Y,X:FOR X=9 TO 53 STEP 4:Y=138:PSET(X,Y),2:DRAW "D5":NEXT
  381. 1390 PSET(150,153),2:DRAW "R1 U3 E2 R2 F2 D25 G2 L2 H2 U4 L2 R2 U18"
  382. 1400 FOR X=69 TO 83 STEP 2:FOR Y=80 TO 103 STEP 6:LINE(X,Y)-(X,Y+3),2:NEXT Y,X:FOR Y=80 TO 103 STEP 3:FOR X=69 TO 83 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y:FOR X=69 TO 92 STEP 2:FOR Y=104 TO 119 STEP 6:LINE(X,Y)-(X,Y+3),2:NEXT Y,X
  383. 1410 FOR Y=104 TO 119 STEP 3:FOR X=69 TO 92 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y:FOR Y=122 TO 137 STEP 6:FOR X=69 TO 88 STEP 2:LINE(X,Y)-(X,Y+3),2:NEXT X,Y:FOR Y=122 TO 137 STEP 3:FOR X=69 TO 88 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y
  384. 1420 FOR Y=128 TO 196 STEP 6:FOR X=69 TO 75 STEP 2:LINE(X,Y)-(X,Y+3),2:NEXT X,Y:FOR Y=128 TO 197 STEP 3:FOR X=69 TO 75 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y
  385. 1430 FOR Y=42 TO 63 STEP 3:FOR X=24 TO 54:PSET(X,Y),2:NEXT X,Y:FOR X=24 TO 54 STEP 3:FOR Y=43 TO 63:PSET(X,Y),2:NEXT Y,X:FOR Y=42 TO 63 STEP 3:X=54:PSET(X,Y),2:DRAW "F8":NEXT:FOR Y=72 TO 77 STEP 3:X=60:PSET(X,Y),2:DRAW "F2":NEXT:PSET(60,78),2:DRAW "F2"
  386. 1440 PSET(151,183),2:DRAW "F3 D7 L4 U10":PAINT(153,187),3,2:PSET(156,184),2:DRAW "F2 D12 L2 U14"
  387. 1450 FOR X=83 TO 138 STEP 5:FOR Y=148 TO 156:PSET(X,Y),2:NEXT Y,X:FOR Y=148 TO 156 STEP 8:FOR X=83 TO 138 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y
  388. 1460 FOR X=83 TO 138 STEP 5:FOR Y=163 TO 171:PSET(X,Y),2:NEXT Y,X:FOR Y=163 TO 171 STEP 8:FOR X=83 TO 138 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y:FOR X=83 TO 108 STEP 5:FOR Y=178 TO 186:PSET(X,Y),2:NEXT Y,X
  389. 1470 FOR Y=178 TO 186 STEP 8:FOR X=83 TO 107 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y:FOR X=83 TO 133 STEP 10:Y=167:PSET(X,Y),2:DRAW "R5":NEXT:FOR X=83 TO 133 STEP 10:Y=152:PSET(X,Y),2:DRAW "R5":NEXT:FOR X=83 TO 103 STEP 10:Y=182:PSET(X,Y),2:DRAW "R5":NEXT
  390. 1480 PSET(223,198),2:DRAW "U22 R12 D22":PSET(226,194),2:DRAW "U15 R6 D15 L6":LINE(224,188)-(224,186),2:PSET(180,188),2:DRAW "U16 R36 D16 L36":PSET(187,181),1:DRAW "U5 R1 F1 D1 G1 L1":PSET(191,181),1:DRAW "U2 R2 L2 U2 E1 R1 F1 D4":PSET(196,176),1
  391. 1490 DRAW "D4 F1 E1 U4 D4 F1 E1 U4":PSET(202,181),1:DRAW "U5 D1 E1 R1 F1 D4":PSET(207,180),1:DRAW "F1 R1 E1 H3 E1 R1 F1":PSET(184,175),1:DRAW "E1 R26 F1 D8 G1 L26 H1 U8"
  392. 1500 PSET(91,123),2:DRAW "E2 R60 F2 D10 G2 L60 H2 U10"
  393. 1510 PSET(16,73),1:DRAW "U7 R1 F1 D1 G1 L1 R1 F1 D2 G1 L1":DRAW "BR5 U7 R2 BD3 L2 D4 R2 BR5 L2 U7 BR6 G1 D5 F1 E1 BU5 H1 BR4 D7 U4 R3 U3 D7 BR5 BU1 U5 E1 F1 BD5 G1 H1 BR5 U5 E1 F1 D5 G1 H1"
  394. 1520 PSET(30,198),2:DRAW "U3 R2 U2 L2 U1 H1 L1 G1 D1 L2 D2 R2 D3":PAINT(28,197),2,2:PSET(190,198),2:DRAW "U3 R2 U2 L2 U2 H1 L3 G1 D2 L2 D2 R2 D3":PAINT(188,197),2,2:LINE(31,198)-(31,193),0:LINE(27,198)-(27,193),0:PSET(33,152),2
  395. 1530 LINE(190,198)-(190,192),0:LINE(185,198)-(185,192),0
  396. 1540 PSET(93,128),2:DRAW "U4 F2 E2 D4":PSET(99,125),2:DRAW "D1 F1 R1 E1 U1 H1 L1 G1":PSET(104,124),2:DRAW "D2 F1 E1 U2":PSET(108,124),2:DRAW "D3":PSET(110,127),2:DRAW "U3 F3 U3":PSET(117,124),2:DRAW "L1 G1 D1 F1 R1 E1 L1"
  397. 1550 PSET(105,133),2:DRAW "U2 E1 R1 F1 D1 L2 R2 D1":PSET(110,133),2:DRAW "U3 F3 U3":PSET(115,133),2:DRAW "U3 R1 F1 D1 G1 L1":PSET(120,132),2:DRAW "D1 R3 U1 H2 U1 R3 D1":PSET(127,133),2:DRAW "U3 R1 L2":PSET(130,132),2:DRAW "F1 R1 E1 U1 H1 L1 G1 D1"
  398. 1560 PSET(135,133),2:DRAW "U1 U1 U1 R1 R1 D1 L1 L1 R1 F1 F1":PSET(140,133),2:DRAW "U1 U1 E1 R1 F1 D1 D1 U1 L1 L1":PSET(147,130),2:DRAW "L1 G1 D1 F1 R1 E1 L1 R1":PSET(150,131),2:DRAW "R1 R1 R1 H1 L1 G1 D1 F1 R1"
  399. 1570 X=190:FOR Y=65 TO 75 STEP 5:PSET(X,Y),2:DRAW "R55":NEXT:PSET(190,80),2:DRAW "R53":FOR Y=85 TO 90 STEP 5:PSET(X,Y),2:DRAW "R50":NEXT:PSET(227,95),2:DRAW "R13":X=233:FOR Y=100 TO 150 STEP 5:PSET(X,Y),2:DRAW "R7":NEXT
  400. 1580 FOR X=198 TO 238 STEP 10:Y=65:PSET(X,Y),2:DRAW "D28":NEXT:PSET(228,93),2:DRAW "D3":PSET(238,93),2:DRAW "D58":PSET(246,65),2:DRAW "F6":PSET(246,70),2:DRAW "F4":PSET(246,75),2:DRAW "F2":PSET(248,68),2:DRAW "D10"
  401. 1590 FOR X=249 TO 294 STEP 8:FOR Y=90 TO 135 STEP 5:PSET(X,Y),2:DRAW "R3":NEXT Y,X:FOR X=249 TO 294 STEP 4:FOR Y=90 TO 135 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT Y,X
  402. 1600 X=62:FOR Y=90 TO 125 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=64:FOR Y=92 TO 127 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=66:FOR Y=94 TO 129 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT
  403. 1610 X=63:FOR Y=140 TO 195 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=65:FOR Y=142 TO 197 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=67:FOR Y=144 TO 199 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT
  404. 1620 X=185:FOR Y=130 TO 150 STEP 8:PSET(X,Y),2:DRAW "D4":NEXT:X=187:FOR Y=132 TO 150 STEP 8:PSET(X,Y),2:DRAW "D4":NEXT:X=189:FOR Y=134 TO 145 STEP 8:PSET(X,Y),2:DRAW "D4":NEXT:PSET(189,149),2:DRAW "D2"
  405. 1630 Y=110:FOR X=119 TO 215 STEP 5:PSET(X,Y),2:DRAW "D6":NEXT:FOR Y=110 TO 116 STEP 6:FOR X=119 TO 215 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y:PSET(189,122),2:DRAW "D3 U3 R5 D6 L3":PSET(193,134),2:DRAW "R1 D6 L1"
  406. 1640 FOR Y=122 TO 134 STEP 12:FOR X=199 TO 215 STEP 5:PSET(X,Y),2:DRAW "D6":NEXT X,Y:FOR Y=122 TO 140 STEP 6:FOR X=199 TO 215 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y
  407. 1650 Y=146:FOR X=194 TO 215 STEP 5:PSET(X,Y),2:DRAW "D5":NEXT:Y=146:FOR X=199 TO 215 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT:FOR X=193 TO 194:PSET(X,146),2:NEXT
  408. 1660 GOTO 5
  409. 1670 FOR X=1 TO 9000:NEXT X:RETURN
  410. 1680 IF VAL (LEFT$ (TIME$,2)) =13 THEN T$= "01" + MID$ (TIME$,3,6):TIME$ = T$
  411. 1690 IF VAL (LEFT$ (TIME$,2))=0 THEN T$= "12" + MID$ (TIME$,3,6):TIME$ = T$
  412. 1700 MN= VAL (MID$ (TIME$,4,2)):HR= VAL (LEFT$ (TIME$,2))
  413. 1710 IF MN=>45 THEN HR=HR+1
  414. 1720 IF VAL (LEFT$ (TIME$,2))>13 THEN CLS:INPUT "ONE MOMENT!  PLEASE INPUT TIME  HH:MM:SS";T$:TIME$=T$:RUN
  415. 1730 IF MN=5 THEN LINE(271,55)-(271,49),0:MH=274:MV=50:GOTO 1850
  416. 1740 IF MN=10 THEN LINE(271,55)-(274,50),0:MH=277:MV=52:GOTO 1850
  417. 1750 IF MN=15 THEN LINE(271,55)-(277,52),0:MH=278:MV=55:GOTO 1850
  418. 1760 IF MN=20 THEN LINE(271,55)-(278,55),0:MH=277:MV=58:GOTO 1850
  419. 1770 IF MN=25 THEN LINE(271,55)-(277,58),0:MH=274:MV=60:GOTO 1850
  420. 1780 IF MN=30 THEN LINE(271,55)-(274,60),0:MH=271:MV=61:GOTO 1850
  421. 1790 IF MN=35 THEN LINE(271,55)-(271,61),0:MH=268:MV=60:GOTO 1850
  422. 1800 IF MN=40 THEN LINE(271,55)-(268,60),0:MH=265:MV=58:GOTO 1850
  423. 1810 IF MN=45 THEN LINE(271,55)-(265,58),0:MH=264:MV=55:GOTO 1850
  424. 1820 IF MN=50 THEN LINE(271,55)-(264,55),0:MH=266:MV=52:GOTO 1850
  425. 1830 IF MN=55 THEN LINE(271,55)-(266,52),0:MH=268:MV=50:GOTO 1850
  426. 1840 IF MN=0 THEN LINE(271,55)-(268,50),0:MH=271:MV=49
  427. 1850 IF HR=1 THEN LINE(271,55)-(271,49),0:HH=274:HV=51:GOTO 1960
  428. 1860 IF HR=2 THEN LINE(271,55)-(274,51),0:HH=276:HV=53:GOTO 1960
  429. 1870 IF HR=3 THEN LINE(271,55)-(277,52),0:HH=276:HV=55:GOTO 1960
  430. 1880 IF HR=4 THEN LINE(271,55)-(278,55),0:HH=276:HV=58:GOTO 1960
  431. 1885 IF HR=5 THEN LINE(271,55)-(276,58),0:HH=274:HV=59:GOTO 1960
  432. 1890 IF HR=6 THEN LINE(271,55)-(274,59),0:HH=271:HV=60:GOTO 1960
  433. 1900 IF HR=7 THEN LINE(271,55)-(271,61),0:HH=268:HV=59:GOTO 1960
  434. 1910 IF HR=8 THEN LINE(271,55)-(268,60),0:HH=267:HV=58:GOTO 1960_
  435. 1920 IF HR=9 THEN LINE(271,55)-(266,58),0:HH=266:HV=55:GOTO 1960
  436. 1930 IF HR=10 THEN LINE(271,55)-(264,55),0:HH=266:HV=53:GOTO 1960
  437. 1940 IF HR=11 THEN LINE(271,55)-(266,52),0:HH=268:HV=51:GOTO 1960
  438. 1950 IF HR=12 THEN LINE(271,55)-(268,50),0:HH=271:HV=50:GOTO 1960
  439. 1960 IF MH=0 OR MV=0 OR HH=0 OR HV=0 THEN RETURN ELSE GOTO 1970
  440. 1970 LINE(271,55)-(MH,MV),1
  441. 1980 LINE(271,55)-(HH,HV),1
  442. 1990 RETURN
  443. 2000 IF Q5=0 THEN GOTO 740 ELSE T8$="             FOR AUTHENTIC VIETNAMESE FOOD...  TRY CHU LAI CHARLIE'S RESTAURANT AND LOUNGE.   "
  444. 2005 T7$="             DOWNLOAD ERRORS??  AT 300 BAUD??   OUTRAGEOUS!   CHOOSE AP&P   WE GO THE DISTANCE.      "
  445. 2010 T1$="             TRY A BELCHE'S LIGHT BEER...    TIME FOR A BELCHE! "
  446. 2020 T3$="             B&J BLENDED BOURBON...  NOT JUST FOR BREAKFAST ANYMORE. "
  447. 2025 T2$="             HEY MAN...    GET WIRED!     TUNE YOUR HEAD TO KROK FM 93  "
  448. 2030 T4$="             ENJOY A REAL MAN'S SMOKE....   -ROLLED SHORTS-    SMALL CIGARS. "
  449. 2035 T5$="             WHY PAY MORE?   GET A NEW  -CANNON CORD-  WIRELESS PHONE.  "
  450. 2040 T9$="             TRY NEW     -PIT STOP-       ANTI-STAIN ROLL ON.      NO SWEAT!   "
  451. 2045 U1$="             IF YOUR THRONE IS LESS THAN REGAL, LOOK OVER THE NEW SELECTION AT FILROY'S PLUMBING SUPPLY.     NOW FEATURING NEW JET-FLUSH.  "
  452. 2050 U2$="             FOR SMORGASBORD DINING AT IT'S BEST...   EAT AT HOBO SVEN'S  NOW SERVING LUTEFISK! ":U3$="            C'MON DOWN TO SMILIN EARL'S  --< USED CAR CIRCUS >--   BEST DEALS!  LOWEST PRICES!  WE GOTTA MOVE EM' NOW!   SEE YA THERE. "
  453. 2055 U4$="            -- WOW --  3RD ANNUAL COMPUTER EXPO!    OCT. 3-5 MUNICIPAL AUDITORIUM.   HARDWARE! SOFTWARE! FIRMWARE! UNDERWARE!   WE GOT IT ALL.  BE THERE! "
  454. 2060 U5$="            WATCH THE KPOW TV NEWS TEAM...   WITH ANCHORWOMAN  - MARCIA SLUR -   AND THE SNOOPERCAM CREW.  ":Q5=0:RETURN
  455. 3000 CLS:PRINT:PRINT "SKYLINE is an amusing graphics program  which may be loosely defined as a form  of computer art.":PRINT
  456. 3001 PRINT "The program features a working analog   clock, a scrolling billboard, and over  200 independently operating lights signsand windows.":PRINT
  457. 3002 PRINT "The analog clock may take up to 5 min.  to sync with the rest of the program.":PRINT
  458. 3003 PRINT "This program may be freely copied and   distributed by permission of author so  long as copies are unmodified and in    their original form.":PRINT
  459. 3004 PRINT "PLEASE TYPE AND ENTER THE CURRENT TIME: ":PRINT "HH:MM:SS":PRINT:INPUT;T$:TIME$=T$
  460. 3010 GOTO 740
  461.